home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / os20 / wb / unlha.lha / UnLha / UnLha.Script < prev    next >
AmigaDOS Script File  |  1992-12-13  |  1KB  |  30 lines
  1. .key filename        ; UnLha for ToolManager using ReqAsk/GetFile
  2.             ; Can be used by DOCKs, APPICONs or CLI
  3.             ; $VER: UnLha.1.Release 
  4. If NOT <filename>
  5.  
  6.     GetFile TITLE "Please select the file(s)" PATTERN "#?.lha"
  7.     If WARN
  8.         ReqAsk "I wonder where*ndid that file go?" TITLE "How about a file then?" GADFMT "Cough Cough"
  9.     Else
  10.         GetFile TITLE "Please specify the destination" NOFILES VAR "DeviceName"
  11.         Lha x $GetFileResult $DeviceName
  12.         Delete >NIL: $DeviceName#?.displayme #?.xyz #?.txt
  13.         ReqAsk "OK, Finished extracting*n($GetFileResult)*nto*n($DeviceName)" TITLE "Press RETURN or ESC to continue" GADFMT "Bye"
  14.     EndIf
  15. Else
  16.     ReqAsk "Would you like me to:*nList the archive or*n Extrack it to RAM" TITLE "UnLha Requester" GADFMT "Extract|List|Forget it!"
  17.     If $ReqAskResult EQ 1
  18.         Lha x <filename> RAM:
  19.         Delete >NIL: RAM:#?.displayme #?.xyz #?.txt
  20.         ReqAsk "OK, Finished extracting*n(<filename>)*nto*n(RAM)" TITLE "Press RETURN or ESC to continue" GADFMT "Bye"
  21.     EndIf
  22.     If $ReqAskResult EQ 2
  23.         Lha l <filename> >"CON:0/25/640/130/Lha Listing/WAIT"
  24.     EndIf
  25.  
  26. EndIf    ; Thanks to Magnus Holmgren for creating the wonderful
  27.     ; ReqChange, ReqAsk and GetFile,
  28.     ; and to Nico François for his superb ReqTools library,
  29.     ; and ofcourse lets not forget Stefan Boberg.
  30.